home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / modeler / cutfaces.lwm < prev    next >
Text File  |  1993-12-13  |  473b  |  27 lines
  1. /* CMD: CutFaces
  2.  *  Cut faces from current layer
  3.  * By Arnie Cachelin © 1993 NewTek Inc.
  4.  *
  5.  */
  6.     mxx="LWModelerARexx.port"
  7.     signal on error
  8.     signal on syntax
  9.     mxx_add = addlib(mxx,0)
  10.     call main
  11.     if (mxx_add) then call remlib(mxx)
  12.     exit
  13.  
  14.     syntax:
  15.     error:
  16.     t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
  17.     if (mxx_add) then call remlib(mxx)
  18.     exit
  19.  
  20.  
  21. main:
  22.   call SEL_MODE(USER)
  23.   call SEL_POLYGON(CLEAR,CURVE)
  24.   call SEL_POLYGON(SET,FACE)
  25.   call CUT()
  26.   return
  27.